home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / util / simulare.sit / Simula 4.07 Reference / card_36125.txt < prev    next >
Text File  |  1989-05-02  |  3KB  |  138 lines
  1. -- card: 36125 from stack: in.07 Reference
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=392 top=55 right=157 bottom=495
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=277 top=156 right=251 bottom=494
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: 
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: A004
  39. -- rect: left=19 top=228 right=252 bottom=128
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: See also "this"
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   go to card id 36462
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: A004
  59. -- rect: left=20 top=256 right=279 bottom=123
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: and "inspect"
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   go to card id 46071
  71. end mouseUp
  72.  
  73.  
  74.  
  75.  
  76. -- part 5 (button)
  77. -- low flags: 00
  78. -- high flags: A004
  79. -- rect: left=20 top=281 right=304 bottom=193
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: and attribute protection
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   go to card id 34931
  91. end mouseUp
  92.  
  93.  
  94.  
  95.  
  96. -- part contents for background part 1
  97. ----- text -----
  98.  
  99. The attributes of an object are accessible through dot notation. 
  100. The attributes defined in the qualifying class of the pointer
  101. are directly visible. 
  102.  
  103.  
  104. Attributes defined in subclasses can be 
  105. accessed after re-qualification with a "qua". 
  106. "Qua" can also be used to access attributes in 
  107. a prefix-class that has been overridden with 
  108. new attributes with the same name.
  109.  
  110.  
  111. -- part contents for background part 2
  112. ----- text -----
  113. Class attribute access
  114.  
  115. -- part contents for card part 1
  116. ----- text -----
  117. infile class myfile;
  118. begin
  119.     procedure InImage; 
  120.            .....;
  121. end;
  122.  
  123. ref(infile) i;
  124. ref(myfile) m;
  125.  
  126.  
  127.  
  128.  
  129. -- part contents for card part 2
  130. ----- text -----
  131. i:-new myfile("filename");
  132. m:-i; ! - both i and m point to the same object;
  133. i.inimage; ! -- will call inimage of infile ;
  134. m.inimage; ! -- will call InImage of myfile;
  135.  
  136. i qua myfile.inimage; ! InImage of myfile ;
  137. m qua infile.inimage; ! inimage of infile ;
  138.